﻿Public Class Enviarcorreos
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        correo.correoasunto = ""
        correo.correotexto = ""
        correo.correoasunto = txtasunto.Text
        correo.correotexto = txtmensaje.Text

        If txtpara.Text <> "" Then
            correo.enviacorreos(txtpara.Text, txtasunto.Text, txtmensaje.Text)
        End If


        'Dim tablaerror As New DataSet1TableAdapters.ErroresTableAdapter

        ''Verificamos si seleccionó empleados
        'If checkempleados.Checked = True Then
        '    Try
        '        Dim query As String = String.Format("SELECT usuarioid, usuarionombrecompleto,usuarioemail ,empresaid, departamentoid,rangoid FROM    usuarios WHERE rangoid = '{0}' ", 2) 'empleado
        '        Dim con As New Devart.Data.PostgreSql.PgSqlConnection(seguridad.conexion) ' hacemos la conexion , pero la traemos desde clase seguridad
        '        con.Open()
        '        Dim Ejec1 As New Devart.Data.PostgreSql.PgSqlCommand(query, con)
        '        Dim registro As Devart.Data.PostgreSql.PgSqlDataReader = Ejec1.ExecuteReader()
        '        While registro.Read()

        '            If Convert.ToString(registro.Item("usuarioemail")) <> "" Then
        '                seguridad.tecniconame = Convert.ToString(registro.Item("usuarionombrecompleto"))
        '                correo.enviacorreos(Convert.ToString(registro.Item("usuarioemail")), 4, 3)
        '            End If
        '            registro.NextResult()
        '        End While
        '        con.Close()

        '    Catch ex As Exception
        '        tablaerror.InsertQuery(Date.Now.ToString("dd/MM/yyy"), Convert.ToString(TimeOfDay.TimeOfDay.ToString), "Enviarcorreos.aspx", "Busca empleados para enviar correos y manda a llamar la funcion de correos", seguridad.usuaronombrecompleto1)
        '    End Try
        'End If

        ''verificamos si selecionó tecnicos
        'If checktecnicos.Checked = True Then
        '    Try
        '        Dim query As String = String.Format("SELECT usuarioid, usuarionombrecompleto,usuarioemail ,empresaid, departamentoid,rangoid FROM    usuarios WHERE rangoid = '{0}' ", 3) 'técnico
        '        Dim con As New Devart.Data.PostgreSql.PgSqlConnection(seguridad.conexion) ' hacemos la conexion , pero la traemos desde clase seguridad
        '        con.Open()
        '        Dim Ejec1 As New Devart.Data.PostgreSql.PgSqlCommand(query, con)
        '        Dim registro As Devart.Data.PostgreSql.PgSqlDataReader = Ejec1.ExecuteReader()
        '        While registro.Read()

        '            If Convert.ToString(registro.Item("usuarioemail")) <> "" Then
        '                seguridad.tecniconame = Convert.ToString(registro.Item("usuarionombrecompleto"))
        '                correo.enviacorreos(Convert.ToString(registro.Item("usuarioemail")), 4, 3)
        '            End If
        '            registro.NextResult()
        '        End While
        '        con.Close()

        '    Catch ex As Exception
        '        tablaerror.InsertQuery(Date.Now.ToString("dd/MM/yyy"), Convert.ToString(TimeOfDay.TimeOfDay.ToString), "Enviarcorreos.aspx", "Busca técnicos para enviar correos y manda a llamar la funcion de correos", seguridad.usuaronombrecompleto1)
        '    End Try
        'End If

        ''verificamos si selecionó tecnicos
        'If checkjefe.Checked = True Then
        '    Try
        '        Dim query As String = String.Format("SELECT usuarioid, usuarionombrecompleto,usuarioemail ,empresaid, departamentoid,rangoid FROM    usuarios WHERE rangoid = '{0}' ", 4) 'jefe
        '        Dim con As New Devart.Data.PostgreSql.PgSqlConnection(seguridad.conexion) ' hacemos la conexion , pero la traemos desde clase seguridad
        '        con.Open()
        '        Dim Ejec1 As New Devart.Data.PostgreSql.PgSqlCommand(query, con)
        '        Dim registro As Devart.Data.PostgreSql.PgSqlDataReader = Ejec1.ExecuteReader()
        '        While registro.Read()

        '            If Convert.ToString(registro.Item("usuarioemail")) <> "" Then
        '                seguridad.tecniconame = Convert.ToString(registro.Item("usuarionombrecompleto"))
        '                correo.enviacorreos(Convert.ToString(registro.Item("usuarioemail")), 4, 3)
        '            End If
        '            registro.NextResult()
        '        End While
        '        con.Close()

        '    Catch ex As Exception
        '        tablaerror.InsertQuery(Date.Now.ToString("dd/MM/yyy"), Convert.ToString(TimeOfDay.TimeOfDay.ToString), "Enviarcorreos.aspx", "Busca jefé de área para enviar correos y manda a llamar la funcion de correos", seguridad.usuaronombrecompleto1)
        '    End Try
        'End If


        'Try
        '    Dim tabla As New DataSet1TableAdapters.enviacorreosTableAdapter
        '    tabla.InsertQuery(txtasunto.Text, txtpara.Text, txtmensaje.Text, Date.Now.ToString("dd/MM/yyyy"))
        'Catch ex As Exception


        '    tablaerror.InsertQuery(Date.Now.ToString("dd/MM/yyy"), Convert.ToString(TimeOfDay.TimeOfDay.ToString), "Enviarcorreos.aspx", "InsertQuery de la tabla correos", seguridad.usuaronombrecompleto1)
        'End Try

    End Sub
End Class